program my_array
  implicit none
  real, dimension(5) :: a
  integer :: b(2,2,3), arr1(3:5, 10:12)
  integer :: k, k2, t, i, j
  ! write(*,*) shape(a)
  b = reshape((/1,2,3,4,5,6,7,8, 9, 10, 11, 12/),(/2,2,3/))
  write(*,*) size(a)
  write(*,*) b
  do k = 1,3
    do j = 1,2
      do i = 1,2
        write(*,*) b(i, j, k)
      end do
    end do
  end do

  write(*,*)
  write(*,*) size(arr1)
  ! write(*,*) size(a,2)
  ! write(*,*) lbound(a)
  ! write(*,*) size(a)
  ! t = 1
  ! do k = 1,size(a,2)
  !    do k2 = 1,size(a,1)
  !       a(k2,k) = t
  !       t = t+1
  !    end do
  ! end do
  ! write(*,*) sin(a)
  ! write(*,*) 2.*a
  ! write(*,*) 10*a
  ! write(*,*) 10.*a
  ! write(*,*) 1/a
  ! write(*,*) 1./a
end program my_array
